﻿<!--#Include File="LoginCheck.asp"-->
<!--#Include File="Conn.asp"-->
<%
	set cmdObject = Server.CreateObject("ADODB.Command")
	If Request("id") <> "" Then
		dim id
		id = Request("id")
		dd = now()
		with cmdObject
			.ActiveConnection = Conn         
			.CommandText      = "UpdateFeedBackFlag"  
			.CommandType      = 4            
			.Prepared         = true
			.Parameters.append .CreateParameter("@id ",200,1,50,id)
			.Parameters.append .CreateParameter("@FeedDate ",200,1,50,dd)
			set rs = .Execute
		end with
		set cmdObject=Nothing
		Response.Write(dd)
	Else
		Response.Write(0)
	End If		
%>